function setdriveext(arg1, arg2)

switch(arg1)
case 'drive'
   htag = findobj('Tag', 'Drive');
   sdrv = get(htag, 'String');
   k = strmatch(arg2, strvcat(sdrv));
   if(~isempty(k)) set(htag, 'Value', k);
   end
case 'ext'
   htag = findobj('Tag', 'FileExtension');
   ext = get(htag, 'String');
   k = strmatch(arg2, strvcat(ext));
   if(~isempty(k))
      set(htag, 'Value', k);
   end
case 'path'
   htag = findobj('Tag', 'Path');
   set(htag, 'String', arg2);
otherwise
end


return;
